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ЕСЕКТІ WO) PRINT. OUT. THE CATALOG 
OF A LARKEN DISK | 


5 REM This program is based on work by а ano 
ther Programmer. This version is by Thomas 
5Каріпвкі 7 Atkinson LN, Coram, NY 11727-3004 U 
.5.А. 10/07/90 
10 CLS : RANDOMIZE USR 100: OPEN #4, "DD": REM 
opens Larken Disk Drive 
15 OUT 127,15: REM SPACE 
.20 RANDOMIZE USR 100: OPEN #2, "1р": REM send i | 
nformation to printer instead of screen 
25 QUT 127,27: QUT 127,.51*t-QUT. 4127,15: QUT 127 
phos OUT 127,27; OUT 127,83: OUT 127,48: 
REM SMALLPRINT 
30 INPUT "DRIVE? (0-3) ";DRV: RANDOMIZE USR 10 
0: GO TO DRV 
39 INPUT AT 1,0; "DRIVE # ";DRV;" SELECTED" "р 
ISK Nm/# "2; LINE A$: INPUT "DATE (mm/dd/yy) ?" 
; LINE b$ 
40 RANDOMIZE USR 100: CAT "", 
43 REM L.I.S.T., Long Island Sinclair Timex Group 
90 PRINT ""DISE "ras, "DATE “pbs eet? 
55 RANDOMIZE USR 100: CLOSE #2 
60 INPUT "1- MORE O-MENU  ";m 
65 IF m THEN CLS : GO TO 15 
70 RANDOMIZE USR 100: NEW : REM 
starts a program called Autostart in my case 
a LOader program 
75 STOP 
100 RANDOMIZE USR 100: SAVE "CATCP2.BL" LINE 1: 
REM disk save self start at LINE 1 


Diszk Мата 1 


catcoy.Bi 001 quikl1b.B1 001 reader.B! 002 
eacer.Bi 001 diskme.Cx 001 AUTOSTART оо2 


FORMAT.BL 001 Meader.DA 001 Meader.CD 001 
FORMT*.BL 001 CATCP2.8L 001 LIST BÙ 001 


CORKEN CROCS 1986... 

rack/Side 40 

Total Files 015007 eo 
Free Blocks 053 e 


„ехал. 
DISK UTILITY DATE 10/07/90 ARN 


DISK UTILITY DATE 10/07/90 


TALIC WAS ON. YOU DON'T HAVE T 


YOU MAY USE STANDARD PRINTER FONT. 


NOTE: As you can see this program will Produce a miniature 
list of the catalog...This mini list can be taped on to the Disk 
or to the jacket of included with the disk in it’s sleeve. 


I hope you like the program. You may wish to use this printer 
set up for other purposes of your own creation. If you come up 


with anything you would like to share with others please do so. 
And send me a copy too. 


Keep computing! 


QL 


BY Beb Gilder 

The following programs are for the Sinclair QL computer and 
should be run in Mode 4 (F1). These programs are debugged and 
operate as they were intended to run. I am sure that the 

Unit pricer and Metric, con programs can be streamlined if 
desired. These and many other programs I have either written or 
have copied from assorted publications have been compiled using 
QLiberator so that they load (using EXEC or EXEC)U)*operate much 
faster and can be multitasked using CTRL/C. Shortly several disks 
containing many programs will be available to LIST members. A 
notice will appear in LISTING when they are available. 


98 REMark Program name: Colorbar 

99 REMark Bob Gilder January 1990 

1000 REMark Colorbar is initiated by typing ’cb’. 

1010 REMark The purpose of the colorbaris to verify that the G2 
controls within your color monitor are adjusted properly. 

1020 REMark There is an exception to this if your monitor is an 
RGB CGA monitor - where yellow is expected, brown is the 

result and the white will appear dark. 

1030 REMark The circle should appear round; if not; adjust the 
Horizontal and/or vertical size controls on your monitor until 
the circle is perfect. 

1040 REMark The small inner circle should be dead center on your 
monitor screen - if not; adjust the horizontal and/or vertical 
position controls. 

1050 REMark One final note: the border is a necessary for proper 
positioning of the eight colorbars due to the QL’s 86 column 
screen. Remove the borderand observe what happens. 

1100 DEFine PROCedure cb 

1104 WINDOW #1,448,200,32,16 
1108 WINDOW #2,448,200,32,16 
1112 WINDOW #0,448,40,32,216 
1116 PAPER #1,0: INK #1,5: CLS#1 
1120 PAPER #2,0: INK #2,5: CLS#1 
1124 PAPER O: INK 7: CLS 

1128 CSIZE #1,1,0 

1132 CSIZE #2,1,0 

1136 CSIZE #0,1,0 

1140 MODE 8:BORDER 15,250:CLS 
1144 PAPER 7: CLS 

1148 FOR n-1 TO 17 

1152 FOR p-O TO 7 

1156 PAPER p: PRINT " Ы 

1160 NEXT p 

1164 NEXT n 

1168 INK O:CIRCLE 71,50,50 

1172 INK O:CIRCLE 71.5,50,.2 
1176 END DEFine cb 


REMark Program name: Unit Pricer 

REMark Have you ever wondered which is the better buy 
for 59 cents or 3 for 80 cents? Here is the answer. 
DIM u$(1,23) 

u$(1)-"(ounces, liters, etc)" 

CLS: PRINT" UNIT PRICER" 

10 PRINT\"This program compares two grocery","products 
for the BEST BUY. This is" 

20 PRINT"based on their UNIT price. Units","must be 
consistant for both items," 

ЗО PRINT"for BEST evaluation. (Ounces, Liters,","etc)."\" 


лљомм№А т 


^ 


QL 
@ R 


1 R 
3 R 
Ба 


530 IF ch$-2 THEN PRINT" 


"2 


540 IF ch$=3 THEN PRINT" 


di. 


550 IF ch$-4 THEN PRINT" 
":INPUT b:GO TO 930° 
560 IF ch$=5 THEN PRINT" 


1o 


"2 


570 IF ch$=6 THEN PRINT" 


“2 


Con T inved 


. Gilder 01/30/90" 

PRINTN\" Press «ENTER? to continue! ":PAUSE 

CLS 

INPUT"What is the brand name of product 1? 

PRINT"How much does ";a$;" cost? ":INPUT a 
PRINT"How many units in the package? ":PRINT u$;" 
INPUT"What is the brand name of product 2? 
PRINT"How much does ";b$;" cost? ":INPUT c 
PRINT"How many units in the package? ":PRINT u$;" 
e=a/b: f=c/d:e=ex100: f=fx100 

CLS 

PRINT a$;"-";e;" 
PRINT b$;"-";f;" 
IF e<f THEN GO TO 
IF e-f THEN GO TO 
PRINT b$;" is the 
GO TO 250 
PRINT a$;" 
GO TO 250 
PRINT"Both ";a$;" and ";b$;"are equally priced." 
PRINT"Do require another evaluation? (Y/N)" 
INPUT;R$ 
IF К%-"Ү" OR R$-"y" 
STOP 


"sas 


"INPUT b 
"36% 


":INPUT d 


cents per unit." 
cents per unit." 
150 

200 

better buy." 


is the better buy." 


THEN GO TO 1 


EMark Program name: Metric. con 
EMark Bob Gilder January 1990 
O TO 2000 


CLS: PRINT" 


PRINT\"1] 
PRINT "2] 
PRINT "3] 
PRINT "4] 
PRINT "5] 
PRINT "6] 
PRINT "7] 
PRINT "8] 
PRINT"9] 


PRINT "10] 


METRIC TO U.S. CONVERTER" 
Centimeters to inches" 
Meters to yards" 
Cubic centimeters to cubic inches" 
Kilometers to miles" 
Liters to gallons" 
Grams to ounces" 
Kilograms to pounds" 
Inches to centimeters" 
Yards to centimeters" 


Cubic inches to cubic centimeters" 


PRINT"11] 
PRINT "12] 
PRINT "13] 
PRINT"14] 
PRINT"15] 
PRINT"16] 


Miles to kilometers" 
Gallons to liters" 
Ounces to grams" 

Pounds to kilograms" 
Degrees F to degrees C" 


"Beats the heck out of bridge, doesn t it?" ў 


CLS #0 
INPUT" 


IF ch$-1 THEN PRINT" 


Degrees C to degrees F" 


Enter for your choice: ";ch$ 


HOW many ";a$(1); " to ";a$(8); 


":INPUT b:GO TO 900 


HOW many ";a$(2); to ";a$(9); 


":INPUT b:GO TO 910 


HOW many ";a$(3); " to ";a$(10); 


":INPUT b:GO TO 920 


HOW many ";a$(4); to ";a$(11); 


HOW many ";a$(5); " to ";a$(12); 


":INPUT b:GO TO 940 


HOW many.";a$(6); " to ";a$(13); 


":INPUT b:GO TO 950 


QL Continved 


580 IF ch$-7 THEN PRINT" HOW many ";a$(7); " 
":INPUT b:GO ТО 960 
590 IF ch$-8 THEN PRINT" 
":INPUT b:GO TO 970 
600 IF ch$-9 THEN PRINT" 


"? 
Ut 
"? 
ет 
"e 
"2 
"2 
722 
“2 


"> 


? “INPUT b:GO TO 
610 IF ch$-10 THEN 
":INPUT b:GO TO 
620 IF ch$=11 THEN 
":INPUT b:GO TO 
630 IF сһ%-12 THEN 
":INPUT b:GO TO 
640 IF ch$=13 THEN 
":INPUT b:GO TO 
650 IF ch$-14 THEN 
":INPUT b:GO ТО 
660 IF ch$-15 THEN 
":INPUT b:GO TO 
670 IF ch$-16 THEN 
":INPUT b:GO ТО 
900 CLS:c=bic=c* .3937: 


to ";а%( 14); 


HOW many ";a$(8); " to ";a$(1); 


HOW many ";a$(9); " to ";a$(2); 


HOW many ";a$(10);: " to ";a$(3); 


HOW many ";a$(11); " to ";a$(4); 


HOW many ";a$(12);: " to ";a$(5); 


HOW many ";а%(13); " to ";a$(6); 


HOW many ";a$(14); " ";аФ(7); 


HOW many ";a$(15); " "5a$(16); 


HOW many ";a$(16); " ";а%( 15); 


1050 
PRINT b;" "; 


a$(1);" = ";c;" ";a$(8): 


PAUSE:GO TO 2190 


910 CLS:cz-b:c-c*1.093611: 
2190 


PAUSE:GO TO 


920 CLS:c=b: 


PAUSE:GO TO 


930 CLS:c=b: 


PAUSE:GO TO 


C-C*6.102338: 
2190 
с=сж.6213699: 
2190 
940 CLS:czb:cz-cx*.264178: PRINT Ы; " "; 


PRINT bs" "; a$(2);" " "5a$(9): 


PRINT b;" "; a$(3);" ;a$( 10): 


PRINT b;" "; a$(4);" ету,” 


;а%( 11): 


a$(5);" a$( 12): 


PAUSE:GO TO 2190 


950 CLS:czb:czcx3.527396E-2: 


PRINT b;" "; a$(6)3" = ";c;" “sas 


(13):PAUSE:GO TO 2190 


960 С5:с=р:с=сж2.204622: 


PRINT b;" "3 a$(7)5;" ;a$(14): 


PAUSE:GO TO 2190 


970 CLS:c=b:c=c*2.540005: 


PRINT b;" "; a$(8);" ;а%( 1): 


PAUSE:GO ТО 2190 


980 CLS:c=b:c=cx*.9144018: 


PRINT b;" "; a$(9);" ;a$( 2): 


PAUSE:GO TO 2190 


990 CLS:czb:cz-cx*1.638716: 


PRINT b;" "; a$(10);" "5a$( 3): 


PAUSE:GO TO 2190 


1000 CLS:czb:c-c*1.609347: 


PRINT b;" ";'a$(11);" ;" ";a$(4): 


PAUSE:GO TO 2190 


1010 CLS:c=b:c=cx*3.785332: 


PRINT b;" "; a$(12);" ;" "ia$( 5): 


PAUSE:GO TO 2190 


1020 CLS:c=b:c=c%*28 .34953: 


PRINT b;" "3 a$(13);" ";а%$( 6): 


PAUSE:GO TO 2190 


1030 CLS:c=b:c=cx* .4535924: 


PRINT b;" "3 a$(14);" = "ici" ";a$(7): 


PAUSE:GO TO 2190 


1040 CLS:c=b:c=(c-32 )*( 5/9): 


PRINT bs" "; a$(15);" ;" "фаФ 


(16):PAUSE:GO TO 2190 


1050 CLS:czb:czcx( 9/5 )+32: 


PRINT b;" "; a$(16);" "es 


"3a$(15): 


PAUSE:GO TO 2190 


2000 
2010 
2020 
2030 
2040 
2050 
2060 
2070 
2080 
2090 


a$(1) 
a$(2) 
a$(3) 
a$(4) 
а%(5) 
a$(6) 
аФ(7) 
a$(8) 
a$(9) 


ow n om mon m on or 


DIM a$(16,16) 


"Centimeters" 
"Meters" 

"Cubic cenimeters" 
"Kilometers" 
"Liters" 

"Grams" 
"Kilograms" 
"Inches" 

"Yards" 


ШЕШЕН sinclair) 


nimm amm nam : 
MNCHEN ene mn 


Rew Re 


- 


QL 


2100 a$(10) 


Con tinved 


"Cubic inches" 


2110 a$(11) = "Miles" 

2120 a$(12) = "Gallons" 
2130 a$(13) = "Ounces" 
2140 a$(14) = "Pounds" 


2150 а%(15) 


"Degrees F" 


2160 a$(16) = "Degrees C" 
2170 GO TO 10 


2190 
2200 


2210 STOP 


JOYSTICK 


REM ss JOYSTICK 
DEMONSTRRT ION 
bt 


Varren Fricke 


LET С-10: LET 1-10 
PRINT RT L,C;"3" 


) 
(528 OR 5 
(5-4 OR 5- 


«21 AND (5=2 OR 5 
з8 AND (5-1 OR 5- 


40 PRINT AT 10,14; “FIRE” RND 
Bz1 


45 PAUSE 5 

БО PRINT RT-LL,CC;" " AND (LL« 
OR CC«»C) 

5 co TO 1e 


In this demo routine it is 
assumed that the joystick is plugged into 
the port on the player's left. Refer to 
Lines 20 and 25. RUN the routine. А “*" 
will appear at Row 10, Column 10. This 
asterisk can be moved in any one of eight 
directions by positioning the joystick. 
The action of the GOTO loop is fairly fast 
(hence Line 45), and the asterisk may ге- 
peat the movement too quickly. If во, а 
deliberate stepping action can be intro- 
duced by a line like... 


17 IF STICK (1,1) 0 THEN GOTO 17 


Now we must jog the paddle for each step. 
We can't use PAUSE 0 to step the action as 
STICK can not release PAUSE like а key- 
stroke does. 

In this demonstration routine the 
fire button will print the word FIRE near 
the center of the screen when pressed. You 
can erase the word by running the asterisk 
thru it. 

The conventional joystick produces a 
diagonal motion if the paddle is so posi- 
tioned, but there is a drawback. The first 
step, before a diagonal one is taken, must 
be either vertical or horizontal. This is 
an inherent flaw in joystick design. To 
get a diagonal motion, two electrical con- 
tacts must be closed inside the joystick, 
and it is generally not possible to close 
them simultaneously. Hence, the motion 
starts off either horizontally or vert- 
ically, depending upon which switch closed 
first. 


Warren Fricke 


5 


INPUT\\ "Do you require another conversion? (y/N) ";d$ 
IF d$ - "y"OR d$ - "Y" THEN GO TO 10 


е/ө 


T/S1000/2068 e * 
ALPHABETIZER e 


by Earl Dunnington 


This "ALPHABETIZER" routine will 
work with all Timex computers. In- 
formation on converting the program 
for the 2068 is contained іп the 
REM statements and uneven lines. To 
SAVE this program, use “GOTO 265". 


1 REM ZX81, 151000, 1500,2e065 " 
RLPHRBETIZER'"-BY EARL DUNNINGTON 
2 REM EASIC COMMANDS POGUEIR AR 


GRAM, HAVE UNEVEN LINE NUMBERS 

FOR EASE IN CONVERTING TO 2068 
1@ PRINT " INPUT «NUMBER OF EN 

TRIES? T THEN PRESS ENTER" 


: 5 

40 PRINT " INPUT «MAXIMUM NUMB 
кв OF LET-_ TERS IN AN ENTRY>"," 
“THEN PRESS ENTER" 


вә CLS 
70 рін аза: 2, 
ee I-1 


а 
оо PRINT * TYPE RN. ENTRY»", 
THEN PRESS ENTER 
ісе СЫТ, R$t(I) 


" THEN GOT 


ИТТЕ 
12] 
н 
71 
х 


0 X) THEN LET X=Y 
£08 LPRINT R$!X 
205 REM FOR HAE 2068 CHANGE 
,1e 
215 PRINT RT 21- ENT (B/32) ,0;R$ 


220 PAUSE 60 
225 FOR N-1 TO INT (B/732) +1 
2: 5 o 


235 SC 

245 NEXT 

250 LET Ag 0O e"zz 

260 GOT 

265 SAVE + AL PHABETIZ" 

275 СОТ 

285 REM TO , SAVE PROGRAM USE 
< GOTO 265 

295 БЕН For THE 2068: 

DELETE LINE 15 

CHANGE LINE 215 TO READ: 

215 PRINT RT 21,0;8$(X) 
DELETE LINE 225 
CHANGE LINE 235 TO READ 

235 LET S=USR 236 

DELETE LIME 245 

CHANGE LINE 265 TO READ: 

265 SAVE "RLPHRBETIZ" LINE 10 
DELETE LINE 275 


Editovs Note: This is a 1492 Progvam, 
You тез? updete it For 1990 Taxes 


INCOME TAX--8K/16K 


It's that time of year again 
and I hope that TAX will reduce 
some of the nuisance of tax return 
preparation, if not the pain in the 
pocket. It is designed to aid in 
year-end form preparation and also 
to allow periodic monitoring of tax 
liability during the year. You may 
be able to reduce the amount with- 
held from your salary or the amount 
of your quarterly payments if self- 
employed. Personally, I'd rather 
have the money during the year than 
have the IRS hold it for me. 

Lines 100-152 provide the main 
menu of functions with line 170 
serving as an error trap for acci- 
dental entries. You can quickly 
see the program's various capabil- 
ities. Tax calculation includes 
all arithmetic and transferring 
totals to appropriate lines. 

The PAUSE subroutine at lines 
6000-6030 allow you to view various 
displays as long as desired before 
proceeding. The form selection 
subroutine is at lines 7000-7214. 
Although this listing includes only 
Form 1040 and Schedule A, you can 
add any additional forms using the 
same principles illustrated. The 
particular variables allow this 
flexibility. 7 is the offset in 
line numbers for each form with 
allows all line numbers and des- 
criptions to be stored in a single 
sequential array but allows you to 
enter the line numbers on the IRS 
form. P is the number of "pages" 
used to display the given form. 
Each value of J is the starting 
line for each display page; each 
value of K is the ending line. 

This allows overlap of displays as 
appropriate. 

Lines 1000-1120 provide the 
data entry function and begin with 
form selection through GOSUB 7000. 
You are then prompted for line 
number and amount. The amount is 
added to the previous total for 
this line and the new total 
displayed. This allows periodic 


updating during the year and 
revisions during year-end form 
preparation. Make negative correc- 
tions by entering negative numbers. 

Lines 2000-2248 perform all 
arithmetic for lines that require 
it. Schedule A (lines 2200-2248) 
must be done first so that Form 
1040 (lines 2100-2182) will have 
that information. Lines 2120-2122 
require you to refer to the tax 
tables for the tax on the amount in 
Form 1040 line 34. Lines 2124-2126 
request any additional taxes. The 
"bottom line" is displayed by lines 
2174-2178. In the calculation of 
Schedule A, the total deduction is 
displayed by 2242. 

Lines 3000-3080 allow you to 
view all line items on the form 
selected. GOSUB 7000 illustrates 
its usefulness here by allowing a 
short subroutine to serve for all 
present and future forms. Line 
numbers, descriptions and amounts 
are presented. Changing the line 
number I to I$ makes for a more 
attractive display. 

Lines 4000-4060 record the 
program and all variables, includ- 
ing line descriptions and amounts. 
This also makes the program self- 
starting upon LOADing and elimin- 
ates the danger of erasing every- 
thing with a RUN instead of a GOTO. 

Lines 5000-5030 erase all line 
amounts to let you keep the line 
descriptions intact when starting a 
new tax year. 

Lines 9000-9050 are for 
initializing the program. The REM 
statements indicate direct commands 
that should be entered when the 
program is being initialized. Line 
descriptions are typed in by first 
commanding GOTO 9020. The prompt 
provides a guide to the maximum 
length of the description (18 
spaces) by printing 16 *s after the 
line number. The direct command 
LET J-1 allows later addition of 
forms and line descriptions. 
Setting J to the new line number 
saves previous entries. The number 
107 is the total lines in Form 1040 


and Schedule A. If you add more: 
forms to the program, you must 
increase 107 wherever it occurs. 

After initializing TAX, enter 
GOTO 100 to get to the main menu 
and either begin using it or record 
it for later use. 

Lane Lester, Lynchburg, VA 

Enter all data that cannot be 
computed on Form 1040 or Schedule 
A. Run CALCULATE TAX routine on 
Schedule A first; totals are auto- 
matically transferred to Form 1040. 
For lines on Form 1040 with sub- 
lines a, b, c and d, enter each 
sub-item to the main line number. 
The screen shows the latest entry 
and the total. You can only go 
forward through the form; enter 
zeros until the main menu comes up 
to go back.--KO 


(Mar.82 listings are printed on a 
Sinclair ZX printer. Comments?) 


"таа PRINT AT 3.6; "INCOME TAX RE 


Tiens RINT, ат e, (4; "PRESS. DESIRED 
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pr 139, рит! car: өліге, сс СЦЬАТЕ - 

ЕСТУ PRINT AT, 10, 6;"3. REUIEU DA 


En 


T 
250, PRINT. AT aisi. RECORD, DA 


ce AT д2; 6; "SL. ERASE га. 


OP BUSE 49600 | ER ue e 
IET: Ez TINKEN 
СЫ РЕ E kee at біз ҰТТЫ THEN бо 


T8986 богов" VAL. K$&r1080 
Beo B ‘GOTO. 100 ; 


Bee 250) а 
PRINT S; AT е, Bi “LIRE NUMBER" 


1020 EBERT res 
1040. LET x жем 


1050. ‘PRINT aT B.5;" “ 
i359 BNET Br gaea T 
NT AT 8,16;n 
280 LET LtX) -L(X) жа 
‚ 1880 PRINT AT 10,5; “TOTAL 


x) 
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To: ЖӘЕ 
TS Жатар: “esin 


: RETU SR 
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ANAS 


nn 


m 
fo 
Г) 
© 
ң 
гггггггг rrrürt «rrr rm 


fo 
{0 
Lad 
8 
r 


m 
+ 


DOVEN AERE 


в-әзеееешт NOM. lg 
+ +44 ++ 


~, 


Coe ыша E 
-L (6106) 
THEN LET L 


1 “;С%$(1@7) 


LET 
91) +L (102) 
2238 LET Lt 
2240 IF L(2@6} ob 
(107) =@ 
aa PRINT НТ 15, е; “ 
2 


HI peb ak pea pd pat pt ID 1D 
M 


swa Mif, i EL Lu 


hit 


coche А бан att 


R = 
FOR I=J(N) 


pP 
TO KIN} 
LET I$-STR$ I 


39030 PRINT I$;" “CLIII; $L VIDEO ARTIST--8K/2K 
(I4Z 


) 
3040 NEXT I 
3050 GOSUB $9000 


This program shows the 2Х81'5 
ability to draw pictures under 
BASIC control. Run the program and 
enter the title of your work. Hit 
NEWLINE or ENTER, and you get a 
flashing cursor in the center of 
the screen. This is the editing 
cursor. Control the direction of 
this cursor in real-time with keys 
5-8. The cursor moves in the 
direction of the arrows on the 
keys. In this mode you can move 
anywhere on the screen. 

To start drawing, press l. 
This puts the computer in plot 
mode. Again, you have real-time 
directional control by pressing 
keys 5-8. To erase, go back to 
edit mode (hit 0) and move the 
cursor over the line to erase. 

When you finish a masterpiece, 
you can save it on tape. Turn on 
your recorder and press S. It 
saves under the title you gave it. 


CLS 
4@1@ PRINT AT 8,7: “PREPARE RECOGE 


4020 PRINT AT 20.35: "PRESS ANY KE 
Y WHEN READY" 
4030 PAUSE 40000 


TO 107 


NEXT I 
@ PRINT AT 16.7; “ALL ENTRIES 
ERASED" 


воде BEST AT 22,3; PRESS ANY КЕ 
Y. TO CONTINUE" 
60-0 PAUSE 400090 


ВЕР 
Безо Б TURN ; 
5582 CLS 
"010: BRINT. ат 6,7; “PRESS DESIRED 


R 
rena. PRINT ат £&,9;"1. FORM 1040" 
төзе: PRINT AT 9.9; “2. SCHEDULE A 


абр PAUSE. 49000 


5855: EA EE OR KE an THEN GO You can exit just about any 
267526 | time by pressing BREAK. This 

7088 CL 5. ‘VAL K$r100«7000 program should run in 2K RAM for 
7 52 RET ы. those of you who have modified your 
2 DOCERE COE: i"FORM 16 ^ ZX81's or added a 16K RAM pack. 

! ы b 

z 2 LET 220 0 | 

2184 LET Pet. o. Lance Ward, Lansing, MI 
218 ter ЫЕ. | 

SM LET ІНЕН ЛЕР 3288 m: 

2336 LET ЕН 5 15 PRINT "ENTER TITLE." 

тхе LET K t3) 254 20 ZNPUT A$ ; 

?А @ LET Kid) 766 ae 

235 RET BM “ ^ 4e URPLOT X Y 

2888 PRINT AT 8,212 DPHERPEEUR 15% INKEY #="5" THEN LET X=X 
28525 LET DTD е1 3 60 IF INKEY$="6" THEN LET Y=Y 
2899 LET KED 282 , 78 IF iNKÉYRe"7" THEM LET ҮТҮ) 
7822 A UPA Ў ‚ 9e IF INKEY §="6" THEN LET X=X+ 
Seee REH Ги PLIN RN 90 IF INKEY$-"1" THEN GOTO 100% 
9@@2 REM DIM Jig)? can BEST Sm 

8895 REM BIM Сөйлеу» 1118 TF INKÉY$="5" THEM LET XeX- 
»eos НЕМ БІН Teta, 189 IF INKEY&-"6" THEN LET YeY- 
8522 ВЕН На and лә? 113% IF INKEYS="7" THEN LET Y=Y+ 
925 LET I$-STRS I Mum _ 
Sese [PRINT RT 51, Q;It&;"kkkgktrtkkk4 gree IF INKEY$-"5" THEN LET XzX* 


жаз 

52202 INPUT СФ) 

Sese NEXT I | 
SYNTACTIC SUM: 52666. BK 


160 IF INKEYS$-"O" THEN GOTO Зе 
.160 IF INKEYS="S" THEN SAVE fif 
1706 GOTO 100 
SYNTACTIC SUM: 23487, БК 


! 
4 
ше ИЕ n 


QW IAN 


62 


РЕМ 
РЕМ 
SEM 
INK 1 
LET Р=0 

PAPER 4 

BOPDER 4 

с\з 

LET ¢=809 

сп €» B {соо 

PRINT АТ 1,233s 
PAUSE 150 

LET ABe*CHERRYLEMON 
PAPER & 

со TO е1 

FOR J=! TO 22 

PRINT АТ 7,205" ° 
PRINT AT 10,33" ° 
PRINT AT 11,7;* * 
PRINT AT 12,33" * 
PRINT AT 20,1%"3 BAR OR BELL*JACKFOT* 
MEXT J 

TIM B$(3,6) 

FOR 141 TO 3 


жик уз ку И WVXXXEXXXXXXXTE 
#BILLY'S SLOT МАСН1МЕ# 
MERE ERE EEE EEE ER REET 


PLUM ORANGE BELL 


~BAR-CHERR Y” 


LET B$(J3)7A9S(1*6X INT ( RND X7) TO 42) 
IF BS(J)="CHERRY" THEN PAPER 2 
IF P$!1)65"LEMON * THEN PAPER 5 
IF B$(J)=* PLUM * THEN PAPER 3 
IF Е9(1)-"ОНАМСЕ” THEN PAPER 2: INK 6 
IF E$:J)2* BELL * THEN PAPER О: ІНК 6 
IF DS(3)}=" -BAR-* THEN PAPER 7: INK O 
PRINT AT 11,74J-S: 5$(J) 
BEEP .05,15 
PAPER 6: INK | 
NEXT J 
PLOT 214,49 
ГРАМ 0,55: DRAW 2,9: DRAW 9,23: DRAW -8,0: DRAW 9,-22: 
30 SIIB 2000 
PRINT АТ 7,21" 0ЕРОЅІТ 2 BITS--5* 
PRINT АТ 7,215 FLASH 1976" 
IF ІМКЕҮФ =*d* OR I!KEYS ="D" THEN PRINT AT 7,24" 
АТ 7,203"2Sc": GO TO 85 
GO TO 83 
PRINT AT 6,26:*PULL*: PRINT AT 2,27)"<----" 
PRINT AT 7,26; FLASH 117Р” 
LET S-S-25: PRINT АТ 1,283S 
IF INKEY® *"p* OR ІМКЕҮФ »*P* THEN 00 TO 91 
GO TO 89 
PRINT АТ 5,265" “ AT 6,263" "i AT 2,264" Ы 
*3 АТ 10,264" "1 АТ 11,265" "4 АТ 12,263" "у AT 12,244" 
GO TO 20 
PRINT 
PLOT 0,4 2010 IF BS(1)=B8(2) 
DRAW 192,0 QU WIN “ІР 
DRAW 0,148 2011 IF BS(1)=BS(2) 
DRAW -192,0 T 1,1: FLASH 1s" YoU 
DRAW 0,-148 2C1? IF BS(1)=BRs(2) 
PLOT 192,24 YOU WIN "ІР 
DRAW 8,0 2017 IF R$(1)9B$(2) 
DRAW 0,40 T 1,11 FLASH 197Ү00 
DRAU -8,0 2014 IF BS(1)=Bs(2) 
PLOT 200,40 Ma "P 

2015 IF B$(1)=B$(2) 
Lor 200. 4 T 1,14 FLASH 147Ү00 
DRAW 12,0 2016 IF BS(1)=Ps(2) 
CIRCLE 212,44,5 ІМ": PANSE 100 
PLOT 210,49 2017 IF B$(1)-B$(2) 
DRAM 0,95 P )1:*JACKPOT - еіС": 
PLOT 214,49 2016 IF B9(1)-Bs:(2) 
DRAW 0,55 Н 1)*JACKPOT - 6107: 
DRAW 2,0 2019 LET S*S«P 
DRAW 0,23 2020 PRINT АТ 1,28; 
DRAW -8,0 2021 PRINT AT 1,28; 
DRAW 0,-23 2022 LET P-0 


CIRCLE 172,116,14 


LOT 6,70 

DRAM 180,0 

DRAW 0,26 
DRAW -189,0 
DRAW 0,-28 
PRINT АТ 4,5;*BILLYS SLOT" 
PRINT АТ $,7)"MACHINE* 
PRINT АТ 14,4%"2 CHERRY PAYS 2° 
PRINT AT 15,4;*3 CHERRY PAYS 5" 
PRINT АТ 16,4;"2 PLUM PAYS 5" 
PRINT АТ 17,43°3 PLUM PAYS 10° 
PRINT АТ 18,4;*2 ORANGE PAYS 5" 
PRINT AT 19,4;*3 ORANGE PAYS 10° 
PRINT AT 1,15;*YOU NOW HAVE" 
RETURN 


2025 
204C PAUSE 75 


205C PRINT АТ 1,11" 


2060 RETURN 
3000 PRINT 

3010 IF 
3020 GC TC 301C 


4000 РЕЕР .2,-3: BEEP .2,2: 


4010 RETURN 


ар 


DRAW 2,0: 


AT 

"4 
AND 
АМТ 


WIN 
AND 


AND 


LET 
T BS(1)=BS(3) AND BS(1)=" BELL * THEN 
LET P»100C: 


s 


8,264" 


2068 
PROGRAM | 


\ 
SLOT MACHINE | 


\ 


by Bill Gunter 


REAL LAS VEGAS STYLE CASINO ENTERTAINMENT! 
The program Is a slot machine which plays 25 cent 
pleces, and keeps track of your winnings and 
losses (It even plays a little fanfare If you hit 
the Jackpot). The odds ought to be pretty close 
to Nevada odds, and should keep the children 
quiet for hours. It Is Important to get the 
spacing Just right In line 15, since the "fruit" 
which appear In the 


== 


slot machine 


windows are 
"slices" of the character string "А5". (EDITOR'S 
NOTE: this listing was made with а printer 
that doesn't use "0" for zero. So be careful 


when entering numbers In this program.) 


DRAW 0,-55 


"i AT S, 


АТ 14,26," ° 


B$(1)€e*CHERRY" 


THEN LET P-50: PRINT Al 1,15 FLASH 197% 
BS(1'-B$03) AND BS(1)="CHERRY” THEN. LET P*125; PRINT A 
"ur 

P$(1)-" PLUM * THEN LET Ғе125: PRINT AT 1,15 FLASH 14" 


BS:1)2B$(3) AND 
"ұр 
B$(1)**ORANGE" 


B$(1)r' PLUM * 


THEN LET P125: 
В%(1)=В% C3) 


“ұғ 
Es(is="LEMON " 


AND EBS(1)}="ORANSE* 


THEN PRINT AT 


Bt (1) #ES(3) 
Р=1000: 


AND ВФ (1) =" 
GO SUE 400C 


-BAK-' 


GO SUB 4000 


IF 5-0 THEN GO TO 3000 


BEEP .2,6: BEEP .4,9: BEEP 


THEN LET P2250: PRINT А 


PRINT АТ 1,15 FLASH 14" 
THEN LEI Р=250: FRINT A 
1,1) FLASH 1s"SORRY, NO W 
THEN PRINT АТ 1,1) FLAS 


PRIN] АТ 1,15 FLAS 


АТ 1,0;°YOU APE BUSTED-FOR REPLAY HIT *4 FLASH 15°R” 
ІМКЕҮФ »*R* THEN RUN 


.2,6: BEEP .6,9 


2068 
TIC TAC TOE 


by Paul T. Erickson 


PIE CHART For the TS 2068 


By Bill Gunter 


DIM п(15) 
GO SUB 200 
BORDER 6: PAPER 6: INK @: C 


LET х=180: LET y=87: LET z= 


To play TIC TAC TOE: 


15 FOR iz3 PER ‚РЕТ 
Enter the number of the square when you see the NT RT i 522 TO Ae РАЕЕР EY NE 
cursor at the bottom. Each square has a number ук pie > 
from 1 to 9. The first row is numbered 1, 2 and 59 CIRCLE x,u,z 
3. The second row is numbered 4, 5 and 6. The 30 PLOT x,y: DRAW 2,0 
last row is numbered 7, 8 and 9. 44 FARER BT aes "enter number 
; ; of items" те 
10 FEM Tic toe 50 INPUT t 
ay oe wk Үр 60 PRINT AT 0,0;"enter value є 
15 LET ш-О: LET 2-0: LET o-Q. ach item- 7 
LET Ч-0: LET t=0: DIM 412%: LET Є5 ГЕТ «20 
Kk 21000 70 FOR і=1 TO t 
20 LET 80 INPUT nti) 
35 LET І PRINT 82 PRINT AT 0,24;nli)d;" " 
AT 6,125: рабат E 85 LET s=s+4n(i) 
20; 8505 90 NEXT i 
: T = 92 PRINT AT 0,0;" BILLY* 
орна (4) ; RT 9,16 5 ЕТЕ CHART 29s 
Be pi әз» Р =0 
ЕРИНЕ SIRAT- Eey 100 FOR i-i TO t 
&1^roR : ne ; 119 LET das vin (id +j) 
AND w= THEN NEXT X: РА "Dr УЕ ta 
Nona i EX We SIDA 120 LET 9=12+РІ) / 
pe. IF u-1 THEN FRIHT I win": „130 LET а-СО5 d#z LET b=SIN ds 
5 т 
_57 IF 2-1 THEN LET z=0: GO ТО 312 BOYS du abe GU 
3 x Я 
"Be INPUT a 145 INK @ . | 
70 IF а‹1 OR а›Э THEN GO TO E0 150 PRINT RT i+3,0;i 
80 IF a$í(a)4»" " THEN GO TO 60 151 PRINT RT i*3,3;níi) 
81 LET a$(ía)z"O": IF 2-0 THEN 152 PRINT RT 2,0;"8 value * 
LET z=1: GO TO 35 М 
85 IF t=1 AND аф (5) =" " THEN L 158;PRINT RT i+3,11; INT (Cinlile 
ET a$(3)- X^: LET wel: co TO 30 =) +100) 
аб IF а$( "Ov AND ag(Si eco" 160 NEXT i 
AND азаа) О. “THEN PRINT “you Mi 165 PRINT AT 21,5; "TO CONTINUE 
n”: STO PRESS "Cc" 
ёт FOR 4-1 TO 20: IF 2-10 THEN 170 IF INK 2"C" THEN GO TO 7 
LET b&z"O"- LET к=1@@0 uod 180 GO TO 5:5 i MA 
Sc 2 G0 SUE k-10 | 200 BORDER 1: PAPER 1: INK 7 
s THEN LET. 2; аз нгы S $10 PRINT AT 10,11; IE CHAR 
Е NEXT x N 10,11;"P T^ 
ES FE XSS THEN CO TO 105 220 PRINT AT 11,14; “by 
100 LET €=d(*): NE х 230 PRINT AT 12 12; "BILLY" 
110 IF o=2 AND b$-z"X" AND agit) 540 PRINT AT 51.25: "7/18/84" 
Teo dd daro Weis LET ae X7 250 PAUSE 100: 6157. RETURN 


“445 IF bS="0" AND о=2 AND a$is 
=" " THEN LET a$iz)z"X": G 


12 LET o=@: NEXT 4 

130 IF ag(7) =" " THEN LET a$i7) HOUSE PAYMENTS 

ENT Go TO зо 

132 IF а%(9) =" THEN LET a$í9) E Bill Gunter 

-"x". co TO 20 5 LET 2-0 

EUG а 3) с" THEN LET a$(3) 2 E v 1: PAPER 6: INK O 1. і5 P propre which EU 
ЖДО" 52 ( а t а 2 compare the costs o ome loans. If the 
prec on ey LET de UR PT e E 10 2 асно Ы user enters them AMOUNT of the loan, 

о 30 20 INPUT the number of YEARS for the loan, the 
150 со TO 140 AR 25 ДАМ mm ы; INTEREST rate on the loan and the number 
100p LET EA te LET 4(2) =2: LET So INPUT Y of pay PERIODS per year (usually 12), 
4010 LET 411124: LET d(2)=5: LET 26 ÉRINT Y the computer will furnish the monthly 

d (3) =6: RETURN: ALTE SOn PRINT *INTEREST? °] payment and the total cost of the loan 
1020 LET d(1)=7: LET а(2) =5: LET ! over the entire period of the loan. Two 


dud RETTEN БЕТ daj ati CET 25 ADU. : such calculations tan be displayed on 
оз Yel: іш) 24: = 
d(3)27: RETURN _ 100 PRINT "PERIODS? 7% iura ORA раса мелая сабау 152275 
1040 LET 4(11-2: LET dí(Z)-5: LET 110 INPUT PER P yone 


d (3) =8: RETURN 120 PRINT- PER periods, ect. Users should know that 
1050 LET d(1)=3: LET d(2)=6: LET / the "^" symbol in line 150 is the sym- 
d(3)z8: RETURN 130 LET І"І/РЕН/100 bol shifted "Н" on the keyboard. 

1060 LET d(1)23: LET 4(2)-5: LET 140 LET М=РЕКЖҮ 

d(3)27: RETURN 150 LET P*AXIX(1*I)^N/(CCI4 1) ^N- 1) 

107E LET СЕВ LET 4 (2) =5: LET 160 PRINT "MONTHLY PAYMENT-"] ІМТ (100XP*.5)/100 

1075 LET d(i)zi: LET 4(21-5: LET Se ас аа ызы 

d(3)28: RETURN 1 T 

1076 LET 4(11-2: LET 4(2)-5: LET 175 PRINT "TOTAL COST OF LOANs*,TXYXPER 

d(3)27: RETURN 180 LET 2=2+1 
255% LET і-1000: NEXT а: GO TO 1 195 PRINT 
= : 200 PRINT 33HBEEEHB HEHEHE HEHEHE EE” 

1090 PRINT AT 2,11; "Tic tac toe" A eee ранны анада ы; $ 

1100 PLOT 87,111: DRAW ē3,0 

1110 PLOT 87,87: DRAW 68,0 210 PRINT 

1120 PLOT 116,64: CRAW 0,71 220 GO TO 10 2727 
1125 PLOT 148,64: DRAW 0,71 230 PRINT АТ 20,5;"PRESS ") FLASH 1j *C"j FLASH OF" TO CONTINUE" / 
1120, PRINT AT 156.5; "PAUL Т, ERIC 240 IF ІМКЕҮФ ="C* OR ІМКЕҮФ -"c* THEN 00 10 5 

1130 RETURN 290 00 TO 240: 


